inherited fmAddServiceType: TfmAddServiceType
  Left = 18
  Top = 29
  Width = 1187
  Height = 890
  Caption = #1059#1089#1083#1091#1075#1072
  Constraints.MinHeight = 890
  Constraints.MinWidth = 1187
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel [0]
    Left = 8
    Top = 82
    Width = 85
    Height = 13
    Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1091#1089#1083#1091#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel [1]
    Left = 8
    Top = 534
    Width = 153
    Height = 13
    Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1076#1077#1081#1089#1090#1074#1080#1103' '#1091#1089#1083#1091#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel [2]
    Left = 176
    Top = 534
    Width = 171
    Height = 13
    Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103' '#1076#1077#1081#1089#1090#1074#1080#1103' '#1091#1089#1083#1091#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label32: TLabel [3]
    Left = 8
    Top = 584
    Width = 113
    Height = 13
    Align = alCustom
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1082' '#1091#1089#1083#1091#1075#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel [4]
    Left = 8
    Top = 385
    Width = 86
    Height = 13
    Caption = #1054#1087#1080#1089#1072#1085#1080#1077' '#1091#1089#1083#1091#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel [5]
    Left = 190
    Top = 194
    Width = 61
    Height = 13
    Caption = #1058#1072#1088#1080#1092', '#1088#1091#1073'.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object sbType: TSpeedButton [6]
    Left = 153
    Top = 213
    Width = 25
    Height = 28
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    OnClick = sbTypeClick
  end
  object Label2: TLabel [7]
    Left = 26
    Top = 195
    Width = 73
    Height = 13
    Caption = #1045#1076'. '#1080#1079#1084#1077#1088#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel [8]
    Left = 824
    Top = 82
    Width = 128
    Height = 13
    Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1082' '#1076#1077#1088#1077#1074#1091' '#1091#1089#1083#1091#1075
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel [9]
    Left = 405
    Top = 535
    Width = 69
    Height = 13
    Caption = #1042#1088#1077#1084#1103' '#1085#1072#1095#1072#1083#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label17: TLabel [10]
    Left = 549
    Top = 534
    Width = 87
    Height = 13
    Caption = #1042#1088#1077#1084#1103' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel [11]
    Left = 8
    Top = 138
    Width = 158
    Height = 13
    Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1091#1089#1083#1091#1075#1080' '#1076#1083#1103' '#1082#1083#1080#1077#1085#1090#1086#1074
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 825
    Width = 1171
  end
  inherited Panel1: TPanel
    Width = 1171
    TabOrder = 6
    inherited BitBtn1: TBitBtn
      Left = 995
    end
    inherited BitBtn2: TBitBtn
      Left = 1083
    end
  end
  object edSTNAME: TDBEdit [14]
    Left = 8
    Top = 102
    Width = 801
    Height = 27
    DataField = 'STNAME'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object edSTDATEBEGIN: TcxDBDateEdit [15]
    Left = 8
    Top = 553
    DataBinding.DataField = 'STDATEBEGIN'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.InputKind = ikMask
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 2
    Width = 137
  end
  object edSTDATEEND: TcxDBDateEdit [16]
    Left = 176
    Top = 553
    DataBinding.DataField = 'STDATEEND'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.InputKind = ikMask
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 3
    Width = 137
  end
  object mdSTNOTE: TDBMemo [17]
    Left = 8
    Top = 608
    Width = 313
    Height = 209
    Align = alCustom
    DataField = 'STNOTE'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 5
  end
  object mdSTDESCR: TDBMemo [18]
    Left = 8
    Top = 401
    Width = 801
    Height = 129
    Align = alCustom
    DataField = 'STDESCR'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object edSTTARIF: TDBEdit [19]
    Left = 188
    Top = 213
    Width = 113
    Height = 27
    DataField = 'STTARIF'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object eNAME: TcxTextEdit [20]
    Left = 25
    Top = 214
    ParentFont = False
    Properties.ReadOnly = True
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 8
    Width = 129
  end
  object cxDBCheckBox1: TcxDBCheckBox [21]
    Left = 680
    Top = 63
    Caption = #1040#1088#1093#1080#1074#1085#1072#1103' '#1091#1089#1083#1091#1075#1072
    DataBinding.DataField = 'STISarchive'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 9
    Width = 121
  end
  object rgSTTYPE: TcxDBRadioGroup [22]
    Left = 315
    Top = 204
    Caption = #1058#1080#1087' '#1091#1089#1083#1091#1075#1080
    DataBinding.DataField = 'STTYPE'
    DataBinding.DataSource = dlgDS
    Properties.Columns = 4
    Properties.Items = <
      item
        Caption = #1056#1072#1079#1086#1074#1072#1103
        Value = 0
      end
      item
        Caption = #1054#1089#1085#1086#1074#1085#1072#1103
        Value = 1
      end
      item
        Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1072#1103
        Value = 2
      end
      item
        Caption = #1042#1089#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
        Value = 3
      end>
    TabOrder = 10
    OnClick = rgSTTYPEClick
    Height = 39
    Width = 478
  end
  object gbSTPODR: TcxDBCheckGroup [23]
    Left = 216
    Top = 51
    Caption = #1054#1073#1088#1072#1079#1086#1074'. '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
    EditValue = '00000'
    Properties.Columns = 6
    Properties.EditValueFormat = cvfStatesString
    Properties.Items = <
      item
        Caption = #1044#1077#1090#1089#1072#1076
      end
      item
        Caption = #1053#1072#1095'. '#1075#1080#1084#1085'.'
      end
      item
        Caption = #1057#1088#1077#1076#1085'. '#1096#1082'.'
      end
      item
        Caption = #1057#1090#1072#1088#1096'. '#1096#1082'.'
      end
      item
        Caption = #1051#1072#1075#1077#1088#1100
      end>
    TabOrder = 11
    DataBinding.DataField = 'STPODR'
    DataBinding.DataSource = dlgDS
    Height = 41
    Width = 433
  end
  object cxDBRadioGroup2: TcxDBRadioGroup [24]
    Left = 372
    Top = 256
    Caption = #1055#1077#1088#1080#1086#1076' '#1086#1087#1083#1072#1090#1099' '#1091#1089#1083#1091#1075#1080
    DataBinding.DataField = 'STPERIODOPLATY'
    DataBinding.DataSource = dlgDS
    Properties.Columns = 2
    Properties.Items = <
      item
        Caption = #1052#1077#1089#1103#1094
        Value = 0
      end
      item
        Caption = #1058#1088#1080#1084#1077#1089#1090#1088
        Value = 1
      end>
    TabOrder = 12
    Height = 46
    Width = 142
  end
  object dbTW: TdxDBTreeView [25]
    Left = 824
    Top = 101
    Width = 338
    Height = 716
    ShowNodeHint = True
    RowSelect = True
    DataSource = dsSD
    DisplayField = 'SDNAME'
    KeyField = 'SDID'
    ListField = 'SDNAME'
    ParentField = 'SDPARID'
    RootValue = 0
    SeparatedSt = '-'
    StateIndexField = 'SDISDELETE'
    RaiseOnError = True
    ReadOnly = True
    Indent = 19
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    Options = [trCanDBNavigate]
    SelectedIndex = 1
    TabOrder = 13
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    StateImages = DMInv.ilBJTree
  end
  object rgRaspred: TcxDBRadioGroup [26]
    Left = 27
    Top = 256
    Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1082' '#1088#1072#1089#1087#1088#1077#1076'. '#1087#1086' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103#1084
    DataBinding.DataField = 'STSYSPODR'
    DataBinding.DataSource = dlgDS
    Properties.Columns = 3
    Properties.Items = <
      item
        Caption = #1054#1089#1085#1086#1074#1085#1086#1077
        Value = 0
      end
      item
        Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086#1077
        Value = 1
      end
      item
        Caption = #1053#1077#1090' '#1087#1088#1080#1074#1103#1079#1082#1080
        Value = 2
      end>
    TabOrder = 14
    Height = 46
    Width = 337
  end
  object cxGroupBox1: TcxGroupBox [27]
    Left = 520
    Top = 256
    Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1076#1083#1103' '#1090#1072#1073#1077#1083#1103
    TabOrder = 15
    Height = 46
    Width = 289
    object ltvUsluga: TdxDBLookupTreeView
      Left = 4
      Top = 17
      Width = 253
      Height = 24
      CanSelectParents = False
      DropDownRows = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      TabStop = True
      Text = 'ltvUsluga'
      TreeViewColor = clWindow
      TreeViewCursor = crDefault
      TreeViewFont.Charset = DEFAULT_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -11
      TreeViewFont.Name = 'MS Sans Serif'
      TreeViewFont.Style = []
      TreeViewIndent = 19
      TreeViewReadOnly = False
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      TreeViewStateImages = DMInv.ilBJTree
      DisplayField = 'SDNAME'
      DividedChar = '.'
      ImageIndexField = 'SDISDELETE'
      ListSource = dsSDTabel
      KeyField = 'SDID'
      ListField = 'SDNAME'
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'SDPARID'
      RootValue = 0
      TextStyle = tvtsShort
      DataField = 'STSDIDTabel'
      DataSource = dlgDS
    end
    object bDelTabelPrivyazka: TcxButton
      Left = 259
      Top = 17
      Width = 23
      Height = 22
      TabOrder = 1
      OnClick = bDelTabelPrivyazkaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333337333333333333333F33333333333333313333333
        333333337F33333333333333113333713333333377F33377F333333371733717
        3333333377F3377F333333333117311333333333377F377F3333333337111133
        33333333337777F33333333337111333333333333F777F333333333371111733
        3333333337777F3333333333117311733333333377F377F33333333333333117
        333333333333377F33333333333333117333333333333377F333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object cxDBCheckBox2: TcxDBCheckBox [28]
    Left = 24
    Top = 312
    Caption = #1053#1077' '#1088#1072#1089#1089#1095#1080#1090#1099#1074#1072#1090#1100' '#1075#1088#1072#1092#1080#1082' '#1087#1083#1072#1090#1077#1078#1077#1081
    DataBinding.DataField = 'STISCALCGRAF'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.MultiLine = True
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 16
    Width = 241
  end
  object gbRD: TcxGroupBox [29]
    Left = 520
    Top = 310
    Caption = #1057#1074#1103#1079#1100' '#1087#1088#1086#1073#1085#1086#1081' '#1091#1089#1083#1091#1075#1080' '#1089' '#1076#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086#1081':'
    TabOrder = 17
    Visible = False
    Height = 46
    Width = 289
    object dxDBLookupTreeView1: TdxDBLookupTreeView
      Left = 6
      Top = 17
      Width = 252
      Height = 24
      CanSelectParents = False
      DropDownRows = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      TabStop = True
      Text = 'dxDBLookupTreeView1'
      TreeViewColor = clWindow
      TreeViewCursor = crDefault
      TreeViewFont.Charset = DEFAULT_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -11
      TreeViewFont.Name = 'MS Sans Serif'
      TreeViewFont.Style = []
      TreeViewIndent = 19
      TreeViewReadOnly = False
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      TreeViewStateImages = DMInv.ilBJTree
      DisplayField = 'SDNAME'
      DividedChar = '.'
      ImageIndexField = 'SDISDELETE'
      ListSource = dssdDopUsl
      KeyField = 'SDID'
      ListField = 'SDNAME'
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'SDPARID'
      RootValue = 1881
      TextStyle = tvtsShort
      DataField = 'STSDIDDOPUSL'
      DataSource = dlgDS
    end
    object bDelSvyaz: TcxButton
      Left = 259
      Top = 17
      Width = 23
      Height = 22
      TabOrder = 1
      OnClick = bDelSvyazClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333337333333333333333F33333333333333313333333
        333333337F33333333333333113333713333333377F33377F333333371733717
        3333333377F3377F333333333117311333333333377F377F3333333337111133
        33333333337777F33333333337111333333333333F777F333333333371111733
        3333333337777F3333333333117311733333333377F377F33333333333333117
        333333333333377F33333333333333117333333333333377F333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object cbprobn: TcxCheckBox [30]
    Left = 392
    Top = 314
    Caption = #1055#1088#1086#1073#1085#1086#1077' '#1079#1072#1085#1103#1090#1080#1077'?'
    Properties.MultiLine = True
    Properties.OnChange = cbprobnPropertiesChange
    TabOrder = 18
    Width = 121
  end
  object deSTTIMEEND: TcxDBTimeEdit [31]
    Left = 548
    Top = 554
    DataBinding.DataField = 'STTIMEEND'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.TimeFormat = tfHourMin
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 19
    Width = 101
  end
  object deSTTIMEBEGIN: TcxDBTimeEdit [32]
    Left = 404
    Top = 554
    DataBinding.DataField = 'STTIMEBEGIN'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.TimeFormat = tfHourMin
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 20
    Width = 101
  end
  object bPodrLink: TcxButton [33]
    Left = 664
    Top = 575
    Width = 153
    Height = 25
    Caption = #1057#1074#1103#1079#1100' '#1089' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077#1084
    TabOrder = 21
    OnClick = bPodrLinkClick
    LookAndFeel.SkinName = 'Office2007Black'
  end
  object dbglink: TcxGrid [34]
    Left = 336
    Top = 609
    Width = 481
    Height = 207
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 22
    LookAndFeel.Kind = lfStandard
    LookAndFeel.SkinName = 'Office2007Black'
    object tvlink: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dsLink
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'SDNAME'
          Column = tvlinkSDNAME
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 3
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.Header = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvlinkSDNAME: TcxGridDBColumn
        DataBinding.FieldName = 'SDNAME'
      end
    end
    object dbglinkLevel1: TcxGridLevel
      GridView = tvlink
    end
  end
  object edSTNAME_CLIENT: TDBEdit [35]
    Left = 8
    Top = 158
    Width = 801
    Height = 27
    DataField = 'STNAME_CLIENT'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 23
  end
  object Panel_DopUsl: TPanel [36]
    Left = 27
    Top = 337
    Width = 262
    Height = 47
    BevelOuter = bvNone
    TabOrder = 24
    object Label6: TLabel
      Left = 4
      Top = 0
      Width = 97
      Height = 13
      Caption = #1052#1072#1082#1089'. '#1082#1086#1083#1080#1095'. '#1091#1089#1083#1091#1075
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 119
      Top = 1
      Width = 130
      Height = 13
      Caption = #1052#1072#1082#1089'. '#1082#1086#1083'. '#1091#1089#1083'. '#1074' '#1085#1077#1076#1077#1083#1102
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object edSTMAXCOUNT: TDBEdit
      Left = 62
      Top = 16
      Width = 37
      Height = 27
      DataField = 'STMAXCOUNT'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object edSTWEEKCOUNT: TDBEdit
      Left = 211
      Top = 15
      Width = 39
      Height = 27
      DataField = 'STWEEKCOUNT'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object panel_duration: TPanel [37]
    Left = 301
    Top = 338
    Width = 137
    Height = 46
    BevelOuter = bvNone
    TabOrder = 25
    object Label12: TLabel
      Left = 1
      Top = 0
      Width = 136
      Height = 13
      Caption = #1055#1088#1086#1076#1086#1083#1078'. '#1079#1072#1085#1103#1090#1080#1103' ('#1074' '#1084#1080#1085'.)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object edSTDURATION: TDBEdit
      Left = 93
      Top = 16
      Width = 39
      Height = 27
      DataField = 'STDURATION'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
  end
  object cbIS_NOT_IN_TERRITORY: TcxDBCheckBox [38]
    Left = 544
    Top = 368
    Caption = #1059#1089#1083#1091#1075#1072' '#1086#1082#1072#1079#1099#1074#1072#1077#1090#1089#1103' '#1085#1077' '#1085#1072' '#1090#1077#1088#1088#1080#1090#1086#1088#1080#1080
    DataBinding.DataField = 'IS_NOT_IN_TERRITORY'
    DataBinding.DataSource = dlgDS
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    TabOrder = 26
    Width = 249
  end
  inherited dlgDS: TDataSource
    Left = 32
    Top = 48
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 18'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 856
    Top = 48
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object qSDSDISDELETE: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 816
    Top = 48
  end
  object qSDTabel: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 20'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 752
    Top = 176
    object IntegerField1: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object IntegerField2: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object IBStringField1: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object IntegerField3: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object dsSDTabel: TDataSource
    DataSet = qSDTabel
    Left = 712
    Top = 176
  end
  object dssdDopUsl: TDataSource
    DataSet = qsdDopUsl
    Left = 696
    Top = 256
  end
  object qsdDopUsl: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 1881'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 728
    Top = 256
    object intgrfld1: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object intgrfld2: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object IBStringField2: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object intgrfld3: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object qLink: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qLinkAfterInsert
    BeforeOpen = qLinkBeforeOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT SPL.*, SD.SDNAME'
      'FROM SERV_PODR_LINK SPL'
      'INNER JOIN SYS_DIC SD ON SD.SDID = SPL.SDID'
      'WHERE SPL.STID = :stid'
      ''
      ''
      '')
    UpdateObject = qulink
    GeneratorField.Field = 'SPLID'
    GeneratorField.Generator = 'GEN_SERV_PODR_LINK_ID'
    Left = 576
    Top = 648
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'stid'
        ParamType = ptUnknown
      end>
    object qLinkSPLID: TIntegerField
      FieldName = 'SPLID'
      Origin = '"SERV_PODR_LINK"."SPLID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qLinkSTID: TIntegerField
      FieldName = 'STID'
      Origin = '"SERV_PODR_LINK"."STID"'
    end
    object qLinkSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"SERV_PODR_LINK"."SDID"'
    end
    object qLinkSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object qulink: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  SPLID,'
      '  STID,'
      '  SDID,'
      '  SPLUSERENTER,'
      '  SPLTIMEENTER,'
      '  SDNAME'
      'from SERV_PODR_LINK '
      'where'
      '  SPLID = :SPLID')
    ModifySQL.Strings = (
      'update SERV_PODR_LINK'
      'set'
      '  SDID = :SDID,'
      '  SPLID = :SPLID,'
      '  STID = :STID'
      'where'
      '  SPLID = :OLD_SPLID')
    InsertSQL.Strings = (
      'insert into SERV_PODR_LINK'
      '  (SDID, SPLID, STID)'
      'values'
      '  (:SDID, :SPLID, :STID)')
    DeleteSQL.Strings = (
      'delete from SERV_PODR_LINK'
      'where'
      '  SPLID = :OLD_SPLID')
    Left = 608
    Top = 648
  end
  object dsLink: TDataSource
    DataSet = qLink
    Left = 536
    Top = 648
  end
end
